5 OPEN3,8,3,"FEATURES":GET#3,A$,A$,NS$:NS=VAL(NS$):CLOSE3
10 :
15 J=56320:POKE53280,14:POKE53281,1:PRINT"[147][144]"
20 GOSUB 210
24 :
25 PRINT"[147]"
26 PRINT"[144] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
30 FORX=1TO21:PRINT" [221]                                    [221]"
35 NEXT
40 PRINT"[144] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
45 PRINT"         [159][196]EFAULT [211]ETUP"
50 PRINT"           [156][163][163][163][163][163][163][163][163][163][163][163][163][163]"
55 PRINT"[150] [217]OUR SELECTIONS HERE ARE OPTIONAL"
60 PRINT"[150] [217]OU MAY CHANGE THIS TO YOUR TASTE."
65 :
70 MU$(1)=" [207][206] [146] ":MU$(0)="[150] [207][198][198] [146]"
75 SD$(1)="[195] [129][207][158] [204] [207] [210]    "
80 SD$(0)="[144][194][204][193][195][203][146] [152]& [144][215][200][201][212][197]"
85 :
90 A$(1)="         [212]OGGLE [205][213][211][201][195]          "
95 A$(2)="     [212]OGGLE [211][195][210][197][197][206] [196][201][211][208][204][193][217]     "
100 A$(3)="         [211][193][214][197] [196]EFAULTS         "
105 A$(4)="             [209][213][201][212]              "
130 S$="                                  "
140 GOTO 1000
145 GOSUB 260 : REM ARE THESE OK
150 IFNOT(OK)THEN25
155 :
160 GOSUB 475: REM CURRENT SIDE
165 SB=SI      : REM SIDE BOOTED
175 CS=1
180 GOSUB305 : REM WRITE DATA TO FILE
185 CS=CS+1    : REM ON SIDE CS
190 IFCS<=NSTHEN180
195 :
200 GOTO410 : REM PUT SIDE SB IN
205 :
210 REM GET CURRENT SETUP
215 OPEN15,8,15,"I0"
220 OPEN3,8,4,"SETUP"
225 INPUT#3,D$(1),D$(2),D$(3),D$(4),D$(5),D$(6),D$(7)
230 MU=VAL(D$(6))
235 SD=VAL(D$(7))
240 CLOSE3:CLOSE15
245 RETURN
250 :
255 :
260 REM THESE OK
265 :
270 PRINT"[147][155]     [205]USIC : "MU$(1+MU):PRINT"     [155][211]CREEN [196]ISPLAY : "SD$(1+SD)
275 PRINT" [193]RE THESE SETTINGS WHAT YOU WANT ([217]/[206])?"
280 POKE198,0:WAIT198,1:GETA$
285 IFA$<>"Y"ANDA$<>"N"THEN280
290 IFA$="Y"THENOK=-1
295 IFA$="N"THENOK=0
300 RETURN
305 REM  WRITE DATA TO DISK
310 PRINT"[147]":POKE53281,6:POKE53280,6
315 PRINT"  [208]LEASE PLACE [211][201][196][197] #"CS"OF [158][204][207][193][196][211][212][193][210] IN"
320 PRINT"     THE DRIVE AND PRESS [210][197][212][213][210][206]."
325 POKE198,0:WAIT198,1:GETA$:IFA$<>CHR$(13) THEN325
330 GOSUB475: REM WHAT SIDE IS IT?
335 IFSI=CSTHEN355
340 PRINT"[153]      ***   [211]IDE #"CS"NOT FOUND!   [153]*** "
345 FORDL=1TO2000:NEXT:GOTO305
350 :
355 REM  OK, WRITE DATA
360 OPEN15,8,15,"I0"
365 D$(7)="0":IFSD=-1THEND$(7)="-1"
370 D$(6)="0":IFMU=-1THEND$(6)="-1"
375 OPEN3,8,4,"SETUP":CR$=CHR$(13)
380 PRINT#15,"P
"CHR$(0)"
";
385 PRINT#3,D$(1)CR$D$(2)CR$D$(3)CR$D$(4)CR$D$(5)CR$D$(6)CR$D$(7)CR$
390 CLOSE3:CLOSE15
395 RETURN
400 :
405 END
410 REM  PUT SIDE ONE BACK IN
415 PRINT"[147]":POKE53281,6:POKE53280,6
420 PRINT"  [208]LEASE PLACE SIDE"NS"OF [158][204][207][193][196][211][212][193][210] IN"
425 PRINT" YOUR DRIVE AND PRESS [[211][208][193][195][197]] TO RETURN"
430 PRINT" TO THE [204][207][193][196][211][212][193][210] MENU.":POKE198,.
435 GETA$:IFA$<>" "THEN435
440 GOSUB475: REM WHAT SIDE IS IT?
445 IFSI=1THEN465
450 PRINT"[153]     ***   [211]IDE # 1 NOT FOUND!   [153]*** "
455 FORDL=1TO2000:NEXT:GOTO410
460 :
465 GOTO555 : REM CONNECT BACK
470 :
475 REM READ CURRENT SIDE
480 OPEN15,8,15,"I0":CLOSE15
485 OPEN2,8,2,"$"
490 FORI=0TO156:GET#2,A$:NEXT
495 GET#2,A$:SI=VAL(A$):CLOSE2
500 RETURN
505 PRINT""
506 PRINT"                      [146]"
507 PRINT" [196]O YOU WISH TO QUIT? [151] [146]"
508 PRINT"                      [151] [146]"
509 PRINT"     [217])ES [207][210] [206])O      [151] [146]"
510 PRINT"                      [151] [146]"
512 PRINT"[151]                      [146]"
515 A=PEEK(203):IFA<>25ANDA<>39THEN515
520 IFA=39 THEN 26
525 GOTO555
530 REM SAME BACKGROUND AND TEXT
535 POKE53281,1:PRINT"[147][144]   [215]HY DID YOU PICK THE SAME COLOR FOR"
540 PRINT"    THE [194][193][195][203][199][210][207][213][206][196] AND THE [212][197][216][212]???"
545 PRINT"          [212]RY PICKING AGAIN..."
550 FORDL=1TO3200:NEXT:RETURN
555 REM  RETURN TO CUSTOMIZE MENU
560 REM -- BOOT THAT THERE PROGRAM --
561 POKE53281,6:POKE53280,6
562 PRINT"[147]       [208]LEASE [215]AIT [215]HILE [204]OADING..."
563 POKE646,PEEK(53281)
565 PRINT"[147]LOAD"CHR$(34)"CUSTOM LS BOOT"CHR$(34)",8":PRINT"RUN"
570 POKE631,13:POKE632,13:POKE198,2:END
1000 :
1005 PRINT"";
1015 POKE53280,14:POKE53281,1
1035 P$="[144]"
1036 SG$=" [155][211]CREEN [196]ISPLAY :"
1037 MG$=" [155][205]USIC [211]TATUS   :"
1040 PRINTSG$SD$(1+SD):PRINTMG$MU$(1+MU):PRINTP$;:FORX=1TO4
1045 PRINTA$(X)CHR$(13)S$
1050 NEXT:X=1:GOSUB1055:GOTO1070
1055 PT$="[154]"+A$(X)+"[146][155][187]"
1060 PT$=PT$+CHR$(13)+"[155][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
1065 RETURN
1070 PRINTP$PT$
1075 GETA$:IFA$=""THEN1075
1080 IF(A$=""ORA$="[157]")AND(X<4)THENA=1:GOTO 1100
1085 IF(A$="[145]"ORA$="")AND(X>1)THENA=-1:GOTO 1100
1090 IFA$=CHR$(13) THEN 1130
1095 GOTO 1075
1100 PRINTP$"[144]"A$(X)" "CHR$(13)S$
1105 IFA=1 THEN P$=P$+""
1110 IFA<1 THEN P$=LEFT$(P$,LEN(P$)-2)
1115 X=X+A:GOSUB 1055
1120 GOTO 1070
1130 IFX=1THENMU=NOT(MU):PRINTMG$;MU$(1+MU)
1140 IFX=2THENSD=NOT(SD):PRINTSG$;SD$(1+SD)
1145 IFX=3 THEN 145
1150 IFX=4 THEN 505
1160 GOTO 1075